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MODULE OPCSLOGFILE ( 
oo eee (BLISS 36 2), 


PERSE SSSCSSSOO SESE E TTT TTT PPT Tr rec cece ici ec ieee cits iti i stiri ii iiiiie | 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh A 
't ONLY yy ACCORDANCE WITH THE TERMS OF SUCH LICENSE ae HE 


® 
® 
® 
® 
® 
® 
® 
* 
. ® 
:* TRANSFERRED. e 
‘® ® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 

® 

* 

t 

® 

* 

® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH I 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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March 10, 1981 
i Revision history: 
v03-001 CwWH3001 Cw Hobbs 30-Jul-1983 

Various and sundry things to make OPCOM distributed 
across the cluster. 


v02-002 sT0082 Steven T. Jeffreys, 02-Aug-1981 | 
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00 '+4 
00 i FACILITY: | 
00 ! 
003 ! OPCOM 
003 : 
803 ABSTRACT: 
003 ! This module contains the specialized logic to service 
i a particular type of request sent by a user to OPCOM. 
003 ! Environment: 
0040 ‘ 
0041 ! VAX/VMS operating system. 
Beg : 
004 ! Author: 
044 : 
045 : Steven T. Jeffreys 
004 ! 
004 } Creation date: 

1 

' 

’ 

] 

' 

! 

1 

! 

' 


—— 


$$$. } 
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| 
| 
; 8 9058 Changed default logfile mame to SYSSMANGER:OPERATOR.LOG 
Phoe mis | 
3 6¢ ¢ | BEGIN ! Start of LOGFILE 
; 64 064 1 LIBRARY 'SYSSLIBRARY:L18.L32'; | 
; 69 99 5 LIBRARY "LIB$:OPCOMLIB'; 
: 67 0067 1 FORWARD ROUTINE 
; 68 0068 LOGFILE_HANDLER : NOVALUE; 
i 9 0070 1 BUILTIN 
3 71 071 1 
3 72 0072 1 
ae 0073 1 REMQUE; ! Remove entry from a queue 


INSQUE, ! Insert entry onto a queue 


OPC 
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GLOBAL ROUTINE LOGFILE_HANDLER (BUFFER_DESC) : NOVALUE = 


1+ 


! Functional description: 
This routine is the handler for all LOGFILE messages received by OPCOM. 


Input: 


Implicit Input: 
None. 
Output: 
None. 
Implict output: 


Side effects: 
None. 

Routine value: 
None. 


BUF FER_DESC 


OWN 
DEFAULT_LOGF ILE 


EXTERNAL 
LOGFILE_FAB 
LOGFILE-NAM 
LOGFILE-RAB 
GLOBAL _STATUS 


EXTERNAL ROUTINE 
CHECK REQUEST 


DEALLOCATE _ROCB : 
f IND_OPERA 


TOR 
FORMAT MESSAGE, 


LOG_MESSAG 
NOTIFY_OPERATO 


R 
NOTIFYZLISTED_OPERATORS, 


: k 
: BITVECTOR; 


BUFFER_DESC : The address of a gute buffer descriptor that 
describes the buf 


er containing the message. 


Some accounting data will be updated 
to reflect the receipt of the message. 


! Start of LOGFILE_HANDLER 


: $Sref_bblock; 


: $string_desc ('SYSSMANAGER:OPERATOR.LOG'); 


: $bblock, ' System logfile FAB 
: $Sbblock, ' System logfile NAM 
$bbloc ! System logfile RAB 


Common sanity checks 
Dispose of an RQCB 

Find a given operator 

Format a message and build an MCB 
Write a message to a logfile 

Send a message to an operator 
Send a msg to a List of operators 


NOVALUE, 


#F. 
OPCSLOGF ILE 16-Sep-1984 01:30:3 AX-11 Bliss-32 V4.0-74 P & OP( 
voe-008 102 388-1 38e 9:88:28 OPCOM. SRC JLOGF ILE .B32; aah (2) | VvOé 
' 


VALID OPERATOR; 


See if an operator device is valid 


LOCAL 
MESSAGE_VECTOR : VECTOR (5,LONG), Message info 
FOU : LON d 


MESSAGE : LONG er" a d 
3 e mess 
OPER_ROCB : gret bblock, noun or ROCB 


ROCB ref eee io case oer e Oce | 
4 equestor operator 

DESC : VECTOR ’ . 

STATUS > LONG: 


If the request does not contain enough data, 
then it cannot be processed. Ignore it. 


-BUFFER_DESC CDSC$W_LENGTH] LSS (OPCSK_LOGFILE_MIN_SIZE + OPC$K_COMHDRSIZ) 
RETURN; 


nd Ot ee eee 


F 
HE 


Call a special routine that does some sanity 
checking and startup code for all request handlers. 


iF NOT (STATUS = CHECK REQUEST (.BUFFER_DESC, ROCB)) 


emcee 


! valid operator device. This routine will also 
! format the operator device name and create a 
device name descriptor within the RQCB. 


iF NOT VALID_OPERATOR (.BUFFER_DESC, .RQCB) 


PAEX_LXRAQ_EQD_ MAAN & EEE PWN 


BEGIN 

DEALLOCATE_RQCB (.RQCB); 

RETURN; 
' e 
Determine if this is a known operator. 
FOUND = FIND_OPERATOR (.RQCB, OPER_RQCB); 


Do some sanity checking before ranging the request. 

For the request to be granted, the following must be true: 
- The operator must be known to OPCOM. 
- The operator must ave, toe, proger privilege. 


h 
- Both the INITLOG and G functions must not be requested. 


O09 NINN SN NNO OO 


' 
i 
i 
i 
i 
i 
i 
IF (NOT .FOUND) 
OR ia | Race 6 Scored EQL OPCSK_SYSTEM) AND (NOT . RQOCB CRQCB_L_PRIVMASK1), paver oeeni}) 
OR ((.RQCB CROCB_B_SCOPEJ EQL OPCSK_GROUP) AND NOT ((. RQCB CROCB_L_PRIVMASK1], PRVSV_OPER]) OR 
(. RQCB CROCB_L_PRIVMASK1], PRVS$V_GROUP]))) 
OR ((.$bblock prece prace L_RQ pet IONsd- OPC$V_INITLO 
(.$bblock R ° EL 


BEGIN 


<<< 


ROCB CROCB7L~RO-OPTIONS], OPCS$V~CLOS 


ee ed me ee ee ce a ce ae ee ee ee ce ee ce ce ee ee ce ce ce ce ce me ce ee ee ee me ee ee ee ee ee ee ee ed ee ee ed 


co 00 0909 09 SIN SI SI SN SN NNO AAAAAAAAAMIIIMNUIMIUIVMIVIVI ES SELL PLL LE 
Itt 2t2da a atti staisdatataiastaiasiatiasta swat ata ada datd dadad dad Sad adad dadadababadaodeodaodadadadadoP 


; RETURN; 
i Check the specified device and see if it is a 
| 


SOSSOSOCOCOOOSOCOSOOOCSSOOSOOSOSOSOSOSSSOCSOOSOSOSOSCSOOSCSOOOOOOOOOOOOOOOOOOoOO 


Close the logfile. 


GLOBAL_STATUS CGBLSTS_K_LOGFILE_CLOSED] = TRUE; 
MESSAGE_VECTOR 0 = OPC$_LOGCLOs; 

MESSAGE ~VECTO = 0; 

MESSAGE-VECTOR (2) = ROCB CRQCB_L_OPER_LENI; 
DESC = .LOGFILE_NAM CNAMSB_RSC); 

DESC (1) = ; LOGE JL E_NAN NAMSL-RSAJ; 

MESSAGE VECTOR (3) = DESC; 


Ft at et ee 
MEW —O0W 


Report the request status and dismiss the request. 
The message is sent to all CENTRAL operators. aie 
Set the BRD bit to insure that the requestor is notified. 


ORMAT_MESSAGE (.RQCB, MESSAGE _VECTOR); 


PEEK FAWN WWIIWIIIIPIPIRININININININD 2 2 OO 


2 | 

OPCSLOGF ILE 18-56 -1984 01:30:3 AX-11 Bliss-32 V4.0-74 P 

vee i 127808-1 3c 9:38:38 OPCOM. SRCILOGF ILE .B32; - a 

: 189 1 MESSAGE_VECTOR PC$_ILLRQST; 

; 190 183 MESSAGE VECTOR Fo} . 8: rs 

: 191 190 FORMAT_MESSAGE (.RQCB, MESSAGE_VECTOR); | 

; 19¢ 191 NOTIFY“OPERATOR (.ROCB);: 

: 19 19¢ D. ALLOCATE_RQCB (-RQCB); 

3; «194 19 RE URN; | 

: 195 194 END; 

: 189 196 5 | | 

P44 O18? Service the request. 

: 199 198 iF .$bblock CROCB CRQCB_L_RQ_OPTIONS], OPC$V_INITLOG] 

; 200 19 THE 

: 201 00 BEGIN 

; Og 01 ! 

; 7 8 ¢ } Init the operator logfile. 

: 205 0 04 GLOBAL_STATUS CGBLSTS_K_LAST_LOG FAILED] = TRUE; ! Assume failure 

; 206 05 MESSAGE_VECTOR (OJ = OPCS_LOGFAIC; ! Set failure message 

: 207 0206 MESSAGE VECTOR = 0; 

: 208 0207 ME SSAGE_VECTOR : = ROCB CROCB_L_OPER_LENI; 

: 209 0208 MESSAGE VECTOR = DEFAULT_LOGFILE; 

; 210 0209 CLOSE TFAB=LOGFILE_ FAB); ' Close the logfile 

; 1 0 10 4 IF SCREATE (FAB=LOGFILE_FAB) i Open a new logfile 

: $18 0 i 4 IF SCONNECT (RAB=LOGFILE_RAB) 

; sié Og 3 THEN 

: 215 0214 & BEGIN 

: 216 0215 4 GLOBAL_STATUS FGBLSTS_k LOGFILE CLOSED] = FALSE; 

> 217 0216 4 GLOBAL ~ STATUS GBLSTS K“LAST_LOG FAILED] = FALSE; 

: 218 0217 4 MESSA E VECTOR CO) = OPCS LOGINIT; 

3; 219 0218 4 DESC = .LOGFILE_NAM. CRAMS$B_RSL); 

: 220 0219 4 pesc (1) = .LOGF LEINAR NAMSL-RSAJ: 

; 921 0 ; 4 MESSAGE _VECTOR (3) = DESC; 

2 ee oe ee 

4 225 03 4 IF, Sbblock CROCB CROCB_L_RQ_OPTIONS], OPC$V_CLOSELOG) 

: 35s 85 6 BEGIN 

; $56 8s 7 ' 

i $8 0559 

. on 

> 234 0538 

; 5 02 : 

; 8 | 

; 9 

5 0 

; | 

: 8 4 | 
| 
| 


OPCSLOGF ILE ieee £30: i -32 V6.0- 
vos-006 w$ep-1984 12:50:48 — LOpcom. SRcSLOGF ILE 183671 eee 8 | 


| 
; 4g 45 2 RQCB CHDR_V_BRD) = TRUE: | 
: 26 46 RQCB CROCB_C_ATTNMASK1) = QPCSH_NM_CENTRL; 
3 248 4 racB CROCB L ATTNMASK2) = 0; 
: 249 48 TIFY_LISTED_OPERATORS (.RQCB); | 
: 250 0 4 LOG MESSAGE (7RQCB); 
; 21 0 I DEACLOCATE_RQCB (.RQCB); | 
; 2g 0252 1 END; ! End of LOGFILE_HANDLER 
TITLE OPCSLOGF ILE | 
"IDENT \V04-000\ | 
-PSECT $PLI7$,NOWRT,NOEXE,2 
45 50 4F 3A S52 45 47 41 GE 41 4D 24 53 59 53 00000 P.AAA: .ASCII \SYSSMANAGER:OPERATOR.LOG\ ; 
47 4F 4C 2€ 52 GF 54 41 52 0000F ; 


.PSECT $OWNS,NOEXE,2 
0018 00000 DEFAULT_LOGFILE: 
. WORD 


24 : 
01 0€ 00002 “BYTE 14, 1 : 
00000000" 00004 “ADDRESS P.AAA : 
EXTRN LOGFILE_FAB, LOGFILE_N 
EXTRN LOGFILE-RAB, GLOBAL STAT 
EXTRN CHECK REQUEST, DEALCOCATE _RQCB 
“EXTRN FIND OPERATOR. FORMAT ME 
-EXTRN LOG_MESSAGE, NOTIFY_OPERATOR 
[EXTRN NOTIFY LISTED OPERATORS 
-EXTRN VALID_OPERATOR, SYSS$CLOSE 
SEXTRN SYSSCREATE, SYSSCONNECT 
-PSECT $CODE$,NOWRT,2 
007c 00000 .ENTRY LOGFILE_HANDLER, Save R2,R3.R4,R5,R6 > 0074 
4 00006 CF 9E 9000¢ MOVAB LOGFILE~FAB, : 
5 99006 CF 9E 9000 MOVAB GLOBAL_STATUS, R5 : 
4 000G CF 9€E 0000C MOVAB LOGFILE _NAM+3, F 
3 000000006 60 9E 00011 MOV SYSSCLOSE, R : 
E 24 C2 00018 SUBL2 #36, SP : 
F 04 6C 681 0001B CMPW  a@BUFFER_DESC, #68 : 0147 
01 1€ 00 | BGEQU§ _1$ : 
04 ET 3 
SE OD 00 4 18: PUSHL SP > 0154) 
04 AC DD 000 $ PUSHL BUFFER DESC F 
9 Fe 0 CALLS #2, CHECK REQUEST : 
1 ’ E BLBS STATUS, 28 ; 
4 S 1 RET F 
66 DO 2$: MOVL RQCB, R2 > 0163 
DD PUSHL R : 
04 AC 0D PUSHL BUFFER_DESC ; 
F 9 FB A CALLS #2, VACID_OPERATOR : | 
C f F BLBC : 
04 AE F 4g PUSHAB OPER_RQCB > 0172 
52 DD 0004 PUSHL  R2 : 
| 
i 


OPCSLOGF ILE 1b-s¢ Sep-1 :3 AX-11 Bliss-32 V4.0-74 
904-006 1 =300 71382 9}: He A OPCOM. SRC fOGrILE oop 3oe 
00006 CF Q FB 47 CALLS #2, FIND_OPERATOR 
3 f 4C BLBC a 5$ 
1 53 OA f Af cHPS : (Ros, #1 
18 32, =A 8 f ; BBC ie 30(R2), 6 
0 53 OA ; A 38 cHPB : (r2), #2 
04 32 a2 8 E ep BBS fe (Re), 4$ 
31 A2 € 6 BLBC }3=—-_s«& CR 
9 8 A2 E9 00069 4$ BLBC BBCRE) ) 
1F 58 A oi E1 960 BBC 4 gir 
10 AE 0005807¢C 8F DO 00 5$ MOVL #360572, més Ace _VECTOR 
14 AE D4 OO07A CLRL MESSAGE. V VECTOR R+4~ 
10 AE 9F 0007D PUSHAB MESSAGE-VECTOR 
52 DD 008 PUSHL R 
00006 CF 9 FB 90 CALLS #2, FORMAT_MESSAGE 
DD 0008 PUSHL R 
00006 CF 07 FB 0089 CALLS #1, NOTIFY_OPERATOR 
00A0 31 000 F 68: BRW log 
51 58 OA E9 0091 7$: BLBC 88(R2 
65 04 88 00095 BISB2 #4 "SL OBAL $1 US 
10 AE 00058034 8F D0 00098 MOVL #360500, HESSAGE “VECTOR 
14 AE D4 O0A0 CLRL MESSAGE. VECTOR+4~ 
18 AE 7C Ad 99E OOOA MOVAB 124(R2)> MESSAGE. VECTOR+8 
1C AE 0000' cf 9E 000A8 MOVAB DEFAULT LOGFILE, “MESSAGE _VECTOR+12 
6 DD OOOA PUSHL RG 
63 Qi FB 000B CALLS #1, SYSSCLOSE 
6 DD 0008 PUSHL 
000000006 90 gi FB 0085 CALLS #1, SYSSCREATE 
2 0 . 00BC BLBC 
00006 CF SF 000BF PUSHAB LOGFILE RAB 
000000006 00 01 FB Bots CALLS 1, SYSSCONNECT 
19 50 : OCA LBC 
45 oc A 000CD BICB2 gc OBAL_STATUS 
10 AE 00058009 8F DO 9009 OVL Habe MESSAGE VECTOR 
08 AE 64 9A 000D MOV ZBL ILE. , DES 
OC AE 01 AG DO 0000C OVL OCF ILECN AM+4. DESC +4 
iC AE 8 AE ‘ 00E1 MOVAB DESC RES SAG *VECTOR+12 
26 58 Ae 01 O0E6 8$: BBC a, 
6 08 8 OO0EB B1SB2 “Stent TUS 
10 AE 000580A4 8F DO OOODEE MOVL 606 MneStace “VECTOR 
14 AE 4 OOFS CLRL Ress na) TOR+4~ 
18 AE 7C «Ad 9E O00F OVAB 4(R2)7 = MESSAGE, VE VECTOR+8 
08 AE 64 OA oF MOVZBL LOGFILE 
OC AE 01 A& 00 OVL LOGFI +4; DES SE 44 
1C AE 08 AE 9€ 001 OV Ree’ Me senee *VECTOR+12 
56 DD 0010C PUSHL 
63 01 FB 106 CALLS SYSSCLOSE 
10 AE 9F 00111 98: PUSHAB fegsice _VECTOR 
52 DD 00114 PUSHL 4 
00 06 CF EB 116 CALLS #2, FORMAT_MESSAGE 
Ag y 118 BISB2 #2. 40(R2) 
Bim 1 7D OO11F MOV #1. 92(R2) 
‘ DD 001 ; PUSHL 
00006 CF FB 001 CALLS #1, NOTIFY_LISTED_OPERATORS 
é DD 0012A PUSHL 
00006 CF FB 0012C CALLS #1, LOG_MESSAGE 


ne ww loo lololololol~) 
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| 
| 

vet etal th MCU: ee ire | 
00006 cr a1 PB abt 33 see CALLS ii, DEALLocATE_Race 7 

meee Lom 

| 


; Routine Size: 313 bytes, Routine Base: S$CODE$ + 0000 


g ead Tine: OY: ¢8-" 
3 Lines/CPU Min: 1636 

3 Lexemes/CPU-Min: 16414 

3 cenory Used: 122 pages 
$ ilation Complete 


: 335 0384 i END ! End of LOGFILE 
3 ! End o 
; 256 55 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes : 
: SPLITS 24 overs eNOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 7 ® WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 31 NOVEE *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
ae ees eee en eer ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; .$255$DUA28: CSYSLIBILIB.L32;1 18619 23 0 1000 00:01.8 
; ~=$255$DUA28: COPCOM.OBJJOPCOMLIB.L32;1 633 19 3 43 00:00.8 
Hy COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:LOGFILE/OBJ=OBJ$:LOGFILE MSRC$:LOGF ILE/UPDATE=(ENH$:LOGF ILE) 
: Sizer 313 code + 32 data bytes 

un Time 00:09.4 

| 
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